home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / text / hyper / SearchGuide.lha / SearchGuide / Install / Install_SearchGuide < prev   
Text File  |  1996-09-22  |  6KB  |  172 lines
  1. ; $VER: Install_SearchGuide 0.8.1.4 (22.9.96) by Gérard Cornu ;-)
  2.  
  3. ;-- Language specific string definitions --------------------------------------
  4.  
  5. ; ENGLISH -----------------------------
  6. (procedure P_english (
  7.     (set #MSG_DESTINATION (cat "Where would you like SearchGuide to be installed?\n"
  8.                           "The selected directory should be in your command path.\n"
  9.                           "(NO drawer will be created)"))
  10.     (set #MSG_COPYING "Going to copy %s to %s.")
  11.     (set #MSG_WHATCATS "Select the language(s) you want to have Catalog files for:")
  12.     (set #MSG_WHATDOC "Install the documentation in AmigaGuide\nformat for this language:")
  13.     (set #MSG_NONE "none")
  14.     (set #MSG_WHEREDOC "Where shall I put the documentation?")
  15.     (set #MSG_OVERWRITE "\n\n\n\n\n%s already exists.\nOverwrite?")
  16.     (set #MSG_YES "Yes")
  17.     (set #MSG_NO "No")
  18.     (set #MSG_THANKS "\n\nThanks for installing %s.")
  19.     (set #catalogs %000)
  20. ))
  21.  
  22. ; FRANÇAIS ----------------------------
  23. ; Translation by Gérard Cornu ;-)
  24. (procedure P_français (
  25.     (set #MSG_DESTINATION (cat "Où désirez-vous installer SearchGuide?\n"
  26.                                "Le répertoire choisi doit être dans votre chemin de commandes (command path).\n"
  27.                                "(AUCUN tiroir ne sera créé)"))
  28.     (set #MSG_COPYING "Prêt â copier %s vers %s.")
  29.     (set #MSG_WHATCATS "Selectionnez le(s) langage(s) pour lesquels vous désirez des fichiers catalogues:")
  30.     (set #MSG_WHATDOC "Installation de la documentation au format\nAmigaGuide pour ce langage:")
  31.     (set #MSG_NONE "aucun")
  32.     (set #MSG_WHEREDOC "Où dois-je mettre la documentation?")
  33.     (set #MSG_OVERWRITE "\n\n\n\n\n%s existe déjà.\nDois-je l'écraser?")
  34.     (set #MSG_YES "Oui")
  35.     (set #MSG_NO "Non")
  36.     (set #MSG_THANKS "\n\nMerci d'avoir installé %s.")
  37.     (set #catalogs %0000010)
  38. ))
  39. ;------------------------------------------------------------------------------
  40.  
  41. (if (= @language "english")  (P_english))
  42. (if (= @language "français") (P_français))
  43. (if (= @user-level 0) (set #catalogs %1111111))
  44.  
  45. (set #docdir "HELP:")
  46.  
  47. (set #destination
  48.    (askdir
  49.       (prompt #MSG_DESTINATION)
  50.       (help @askdir-help)
  51.       (default @default-dest)
  52.    )
  53. )
  54.  
  55. (set @default-dest #destination)
  56.  
  57. (copyfiles  (prompt (#MSG_COPYING "SearchGuide" @default-dest))
  58.             (help @copyfiles-help)
  59.             (source "/SearchGuide")
  60.             (dest @default-dest)
  61.             (nogauge)
  62. )
  63.  
  64. (set #installed 1)
  65.  
  66. (if (exists "LOCALE:" (noreq))
  67.     (
  68.         (set #catalogs
  69.             (askoptions (prompt #MSG_WHATCATS)
  70.                         (help @askoptions-help)
  71.                         (choices "deutsch" "français" "italiano" "nederlands" "norwegian" "polish" "swedish" "español")
  72.                         (default #catalogs))
  73.         )
  74.         (if (BITAND #catalogs %00000010)
  75.             (copyfiles  (help @copyfiles-help)
  76.                         (source "/Catalogs/français/SearchGuide.catalog")
  77.                         (dest "LOCALE:Catalogs/français")
  78.                         (nogauge)
  79.                         (optional "nofail"))
  80.         )
  81.         (if (BITAND #catalogs %00000001)
  82.             (copyfiles  (help @copyfiles-help)
  83.                         (source "/Catalogs/deutsch/SearchGuide.catalog")
  84.                         (dest "LOCALE:Catalogs/deutsch")
  85.                         (nogauge)
  86.                         (optional "nofail"))
  87.         )
  88.         (if (BITAND #catalogs %00000100)
  89.             (copyfiles  (help @copyfiles-help)
  90.                         (source "/Catalogs/italiano/SearchGuide.catalog")
  91.                         (dest "LOCALE:Catalogs/italiano")
  92.                         (nogauge)
  93.                         (optional "nofail"))
  94.         )
  95.         (if (BITAND #catalogs %00001000)
  96.             (copyfiles  (help @copyfiles-help)
  97.                         (source "/Catalogs/nederlands/SearchGuide.catalog")
  98.                         (dest "LOCALE:Catalogs/nederlands")
  99.                         (nogauge)
  100.                         (optional "nofail"))
  101.         )
  102.         (if (BITAND #catalogs %00010000)
  103.             (copyfiles  (help @copyfiles-help)
  104.                         (source "/Catalogs/norsk/SearchGuide.catalog")
  105.                         (dest "LOCALE:Catalogs/norsk")
  106.                         (nogauge)
  107.                         (optional "nofail"))
  108.         )
  109. ›       (if (BITAND #catalogs %00100000)
  110.             (copyfiles  (help @copyfiles-help)
  111.                         (source "/Catalogs/polski/SearchGuide.catalog")
  112.                         (dest "LOCALE:Catalogs/polski")
  113.                         (nogauge)
  114.                         (optional "nofail"))
  115.         )
  116. ›       (if (BITAND #catalogs %01000000)
  117.             (copyfiles  (help @copyfiles-help)
  118.                         (source "/Catalogs/svenska/SearchGuide.catalog")
  119.                         (dest "LOCALE:Catalogs/svenska")
  120.                         (nogauge)
  121.                         (optional "nofail"))
  122.         )
  123. ›       (if (BITAND #catalogs %10000000)
  124.             (copyfiles  (help @copyfiles-help)
  125.                         (source "/Catalogs/español/SearchGuide.catalog")
  126.                         (dest "LOCALE:Catalogs/español")
  127.                         (nogauge)
  128.                         (optional "nofail"))
  129.         )
  130.     
  131.     )
  132. )
  133.  
  134.  
  135. (set #docdir
  136.    (askdir (prompt #MSG_WHEREDOC)
  137.            (help @askdir-help)
  138.            (default #docdir)
  139.    )
  140. )
  141.  
  142. (copyfiles  (help @copyfiles-help)
  143.             (source "/SearchGuide.Guide")
  144.             (dest #docdir)
  145.             (newname "SearchGuide.guide")
  146.             (infos)
  147.             (optional "nofail")
  148.             (nogauge)
  149. )
  150.  
  151. ; Choose default tool for guide, depending on user's OS version
  152. (set #osversion  (/ (getversion) 65536))
  153. (if (>= #osversion 39)
  154.    (set #reader "MultiView") 
  155.    (set #reader "AmigaGuide")
  156. )
  157.  
  158. (if (exists (tackon #docdir "SearchGuide.guide.info") (noreq))
  159.     (
  160.         (tooltype   (dest (tackon #docdir "SearchGuide.guide"))
  161.                     (noposition) (setdefaulttool #reader))
  162.          
  163.     )
  164. )
  165.  
  166. (if (= 1 #installed)
  167.    (exit (#MSG_THANKS @app-name))
  168.    (exit (quiet))
  169. )
  170.  
  171.  
  172.